<!-- #include file="../DAL/BD.asp" -->

<%
    ' Selecciono el ultimo backup realizado
	Fecha = now()
	set conexion = Conectar()	
	Set rs = ConsultarBDD("SELECT TOP 1 NOMBRE FROM BACKUPS WHERE TIPO = 1 ORDER BY FECHA DESC", conexion)
	nombre = rs.fields("Nombre")
	Desconectar(conexion)
	
    ' Ejecuto las consultas de backup
	Set Conmas = Server.CreateObject ("ADODB.Connection")
	Conmas.Open "DRIVER={SQL Server};SERVER=localhost;UID=sa;PWD=123456789;DATABASE=master"
    On error resume next
	EjecutarConsulta "ALTER DATABASE TuTicket SET OFFLINE WITH ROLLBACK IMMEDIATE;", Conmas
	EjecutarConsulta "ALTER DATABASE TuTicket SET RECOVERY FULL;", Conmas
	EjecutarConsulta "RESTORE DATABASE TuTicket FROM DISK='C:\Program Files\Microsoft SQL Server\MSSQL11.MSSQLSERVER\MSSQL\Backup\" & nombre & "' WITH REPLACE;", Conmas
	EjecutarConsulta "ALTER DATABASE TuTicket SET ONLINE WITH ROLLBACK IMMEDIATE;", Conmas  
	Conmas.close
	set conmas = nothing
	
    ' Si hubo error lo informo, caso contrario redirecciono
	If err.number <> 0 Then
		Response.Redirect("../UI/error_.asp")
	else
		Response.Redirect("procesar_registro_restore.asp")
	End If	
%>